Activating respositories

library(ggplot2)
ggplot(midwest) +
  aes(x = percadultpoverty) +
  geom_histogram(bins = 30L, fill = "#112446") +
  theme_minimal()

library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
p1 <- ggplot(midwest) +
  aes(x = percchildbelowpovert, y = percadultpoverty) +
  geom_point(shape = "circle filled", colour = "#106DC6") +
  labs(
    x = "PCDP",
    y = "PDP",
    title = "YPDC's",
    subtitle = "Peer Mentorship"
  ) +
  ggthemes::theme_foundation()


ggplotly(p1)
library(ggplot2)
ggplot(midwest) +
  aes(x = state, y = category, fill = percchildbelowpovert) +
  geom_tile() +
  scale_fill_viridis_c(option = "viridis", direction = -1) +
  theme_classic() +
  facet_wrap(vars(state))